home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / dc25h-3.zip / DEMO2I.SUB < prev    next >
Text File  |  1990-04-23  |  995b  |  49 lines
  1. ; DEMO2I.SUB, Copyright (c) 1990, Dan Hudgins, All rights reserved.
  2.  
  3. NAME 1 = PIX\DEMO2CFR 0
  4.  
  5. LET |FRAMES = 1
  6. LET |XROT   = 0
  7.  
  8. :THIRD_ANIMATION
  9. GRAPH_MODE B&W
  10.  
  11. # 1 COPY # 5 ROTATE Z |XROT 0 0
  12. # 2 COPY # 6 ROTATE Z |XROT 0 0
  13.  
  14. # 5 Display 0 -18 0 -4000 .85 1 -320 0
  15. # 6 Display 0 -18 0 -4000 .85 1 -320 0
  16. # 3 Display 0  0  0  -1E18  1  1    0 0
  17. # 4 Display 0  0  0  -1E18  1  1    0 0
  18.  
  19. # 6 ERASE
  20. # 5 ERASE
  21.  
  22. SAVE PIXEL NAME 1 NEXT
  23.  
  24. LOCATE 2 2 OUTPUT |FRAMES ECHO  frames down, %%
  25. OUTPUT [ 200 - |FRAMES ]  ECHO  to go.
  26.  
  27. LET |FRAMES = [ |FRAMES + 1 ]
  28. LET |XROT   = [ |XROT + 1.8 ]
  29. # 1 ROTATE C 0 0  2.25
  30. # 2 ROTATE C 0 0 -1.125
  31.  
  32. LOOP :THIRD_ANIMATION 199
  33.  
  34. BEEP ; so you can know when it is done
  35. LOCATE 2 2 ECHO Press [Return] to start.
  36. WAIT
  37.  
  38. LET |FNAME  =   3 ; pass ordinal value for frame set name
  39.  
  40. RUN DEMO2A.SUB    ; call subroutine
  41.  
  42. RELEASE |FRAMES   ; clean up 
  43. RELEASE |FNAME
  44.  
  45. ; End Show Gears in close up of Pair Moving
  46.  
  47. ; END
  48.  
  49.